home *** CD-ROM | disk | FTP | other *** search
/ CompuServe CD 495W / Compuserve XTreme Edition 495W.iso / shopping / toyota / toyota.dir / 00047.ls < prev    next >
Encoding:
Text File  |  1995-08-09  |  2.1 KB  |  76 lines
  1. on rolloverTest
  2.   repeat with n = 4 to 7
  3.     if rollOver(n) then
  4.       repeat with x = 4 to 7
  5.         puppetSprite(x, 0)
  6.       end repeat
  7.       updateStage()
  8.       puppetSprite(n, 1)
  9.       set the castNum of sprite n to the number of cast (word 1 of the name of cast the castNum of sprite n && "LOOP")
  10.       updateStage()
  11.       exit repeat
  12.       next repeat
  13.     end if
  14.     repeat with x = 4 to 7
  15.       puppetSprite(x, 0)
  16.     end repeat
  17.   end repeat
  18.   if (rollOver(20) = 1) and (rollOver(48) = 0) and (the mouseCast <> -1) then
  19.     puppetSprite(48, 1)
  20.     set the stretch of sprite 48 to 0
  21.     set the castNum of sprite 48 to the number of cast string(the name of cast the mouseCast & " Rollover")
  22.     updateStage()
  23.   else
  24.     puppetSprite(48, 0)
  25.   end if
  26. end
  27.  
  28. on lightFlash
  29.   global spriteClicked
  30.   if (the mouseCast < 82) or (the mouseCast > 85) then
  31.     set spriteClicked to the clickOn
  32.     puppetSprite(spriteClicked, 1)
  33.     set the castNum of sprite spriteClicked to the castNum of sprite spriteClicked + 4
  34.     updateStage()
  35.     repeat while the mouseDown
  36.       nothing()
  37.     end repeat
  38.     puppetSprite(spriteClicked, 0)
  39.     updateStage()
  40.   end if
  41. end
  42.  
  43. on tacomaRollover
  44.   repeat with n = 26 to 28
  45.     puppetSprite(n, 0)
  46.     if rollOver(n) then
  47.       puppetSprite(n, 1)
  48.       set the castNum of sprite n to the number of cast (word 1 of the name of cast the castNum of sprite n & " rollover")
  49.     end if
  50.   end repeat
  51. end
  52.  
  53. on trafficRollover
  54.   if (rollOver(20) = 1) and (rollOver(48) = 0) and (the mouseCast <> -1) then
  55.     puppetSprite(48, 1)
  56.     set the stretch of sprite 48 to 0
  57.     set the castNum of sprite 48 to the number of cast string(the name of cast the mouseCast & " Rollover")
  58.   else
  59.     if rollOver(21) then
  60.       puppetSprite(47, 1)
  61.       set the stretch of sprite 47 to 0
  62.       set the castNum of sprite 47 to the number of cast string(the name of cast the mouseCast & " Rollover")
  63.     else
  64.       puppetSprite(47, 0)
  65.       puppetSprite(48, 0)
  66.     end if
  67.   end if
  68.   updateStage()
  69. end
  70.  
  71. on undoChecks
  72.   repeat with n = 0 to 12
  73.     set the hilite of cast (the number of cast "first box" + n) to 0
  74.   end repeat
  75. end
  76.